home *** CD-ROM | disk | FTP | other *** search
- object Form2: TForm2
- Left = 43
- Top = 76
- Width = 708
- Height = 500
- ActiveControl = Panel1
- Caption = 'Example With No Callbacks'
- Font.Color = clBlack
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 120
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 700
- Height = 50
- Align = alTop
- TabOrder = 0
- object DBNavigator: TDBNavigator
- Left = 10
- Top = 10
- Width = 291
- Height = 31
- DataSource = DataSource1
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 0
- end
- object BitBtn1: TBitBtn
- Left = 554
- Top = 5
- Width = 109
- Height = 41
- TabOrder = 1
- Kind = bkClose
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 50
- Width = 700
- Height = 158
- Align = alTop
- BevelInner = bvLowered
- BorderWidth = 4
- Caption = 'Panel2'
- TabOrder = 1
- object DBGrid1: TDBGrid
- Left = 6
- Top = 6
- Width = 688
- Height = 146
- Align = alClient
- BorderStyle = bsNone
- DataSource = DataSource1
- TabOrder = 0
- TitleFont.Color = clBlack
- TitleFont.Height = -14
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 208
- Width = 700
- Height = 158
- Align = alTop
- BevelInner = bvLowered
- BorderWidth = 4
- Caption = 'Panel3'
- TabOrder = 2
- object SSheetGrid: TStringGrid
- Left = 6
- Top = 6
- Width = 688
- Height = 146
- Hint = 'Cell names are of the format [R1C2]'
- Align = alClient
- ColCount = 11
- RowCount = 11
- TabOrder = 0
- OnGetEditText = SSheetGridGetEditText
- OnSetEditText = SSheetGridSetEditText
- end
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 366
- Width = 700
- Height = 59
- Align = alTop
- Caption = 'Formula'
- TabOrder = 3
- object SpeedButton1: TSpeedButton
- Left = 635
- Top = 20
- Width = 31
- Height = 30
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 555555555555555555555555555555555555555555FF55555555555559055555
- 55555555577FF5555555555599905555555555557777F5555555555599905555
- 555555557777FF5555555559999905555555555777777F555555559999990555
- 5555557777777FF5555557990599905555555777757777F55555790555599055
- 55557775555777FF5555555555599905555555555557777F5555555555559905
- 555555555555777FF5555555555559905555555555555777FF55555555555579
- 05555555555555777FF5555555555557905555555555555777FF555555555555
- 59905555555555555777555555555555555555555555555555550000}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object FormulaEdit: TEdit
- Left = 7
- Top = 20
- Width = 615
- Height = 30
- TabOrder = 0
- end
- end
- object ResultPanel: TPanel
- Left = 0
- Top = 425
- Width = 700
- Height = 40
- Align = alClient
- BevelInner = bvLowered
- BorderWidth = 4
- TabOrder = 4
- end
- object DataSource1: TDataSource
- DataSet = Table1
- OnDataChange = DataSource1DataChange
- Left = 287
- Top = 5
- end
- object Table1: TTable
- DatabaseName = 'c:\delphi\demos\data'
- TableName = 'master.dbf'
- Left = 260
- Top = 5
- end
- object Expression: TExpression
- UseExceptions = False
- Left = 365
- Top = 15
- end
- end
-